home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / flilib.zip / FLISRC.ZIP / JKEYIS.ASM < prev    next >
Assembly Source File  |  1989-11-12  |  299b  |  21 lines
  1. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  2.  
  3.     ASSUME  CS: _TEXT 
  4.  
  5.  
  6. ;_dos_key_is() - returns 1 if a key is ready to read from keyboard, 0 otherwise
  7.     public _dos_key_is
  8. _dos_key_is proc far
  9.     mov ah,1
  10.     int 16h
  11.     jz ret0
  12.     jmp retit
  13. ret0:
  14.     xor ax,ax
  15. retit:
  16.     ret
  17. _dos_key_is endp
  18.  
  19. _TEXT    ENDS
  20. END
  21.